home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / Retrace.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  2.8 KB  |  142 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Retrace.a
  3. ;
  4. ;    Contains:    Vertical Retrace Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__RETRACE__') = 'UNDEFINED' THEN
  21. __RETRACE__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  30.     include 'OSUtils.a'
  31.     ENDIF
  32. ;        include 'MixedMode.a'                                        ;
  33. ;        include 'Memory.a'                                            ;
  34. ; typedef struct VBLTask     VBLTask, *VBLTaskPtr
  35. VBLTask                 RECORD    0
  36. qLink                     ds.l   1        ; offset: $0 (0)
  37. qType                     ds.w   1        ; offset: $4 (4)
  38. vblAddr                     ds.l   1        ; offset: $6 (6)
  39. vblCount                 ds.w   1        ; offset: $A (10)
  40. vblPhase                 ds.w   1        ; offset: $C (12)
  41. sizeof                     EQU *            ; size:   $E (14)
  42.                         ENDR
  43.  
  44. ;
  45. ; pascal QHdrPtr GetVBLQHdr(void)
  46. ;
  47.     IF ¬ GENERATINGCFM THEN
  48.         Macro
  49.         _GetVBLQHdr
  50.             dc.w     $2EBC
  51.             dc.w     $0000
  52.             dc.w     $0160
  53.         EndM
  54.     ELSE
  55.         IMPORT_CFM_FUNCTION    GetVBLQHdr
  56.     ENDIF
  57.  
  58. ;
  59. ; pascal OSErr SlotVInstall(QElemPtr vblBlockPtr, short theSlot)
  60. ;
  61.     IF ¬ GENERATINGCFM THEN
  62.         ; parameters: 
  63.         ;     vblBlockPtr       => A0
  64.         ;     theSlot           => D0
  65.         ; returns: 
  66.         ;     OSErr             <= D0
  67.         _SlotVInstall:    OPWORD    $A06F
  68.     ELSE
  69.         IMPORT_CFM_FUNCTION    SlotVInstall
  70.     ENDIF
  71.  
  72. ;
  73. ; pascal OSErr SlotVRemove(QElemPtr vblBlockPtr, short theSlot)
  74. ;
  75.     IF ¬ GENERATINGCFM THEN
  76.         ; parameters: 
  77.         ;     vblBlockPtr       => A0
  78.         ;     theSlot           => D0
  79.         ; returns: 
  80.         ;     OSErr             <= D0
  81.         _SlotVRemove:    OPWORD    $A070
  82.     ELSE
  83.         IMPORT_CFM_FUNCTION    SlotVRemove
  84.     ENDIF
  85.  
  86. ;
  87. ; pascal OSErr AttachVBL(short theSlot)
  88. ;
  89.     IF ¬ GENERATINGCFM THEN
  90.         ; parameters: 
  91.         ;     theSlot           => D0
  92.         ; returns: 
  93.         ;     OSErr             <= D0
  94.         _AttachVBL:    OPWORD    $A071
  95.     ELSE
  96.         IMPORT_CFM_FUNCTION    AttachVBL
  97.     ENDIF
  98.  
  99. ;
  100. ; pascal OSErr DoVBLTask(short theSlot)
  101. ;
  102.     IF ¬ GENERATINGCFM THEN
  103.         ; parameters: 
  104.         ;     theSlot           => D0
  105.         ; returns: 
  106.         ;     OSErr             <= D0
  107.         _DoVBLTask:    OPWORD    $A072
  108.     ELSE
  109.         IMPORT_CFM_FUNCTION    DoVBLTask
  110.     ENDIF
  111.  
  112. ;
  113. ; pascal OSErr VInstall(QElemPtr vblTaskPtr)
  114. ;
  115.     IF ¬ GENERATINGCFM THEN
  116.         ; parameters: 
  117.         ;     vblTaskPtr        => A0
  118.         ; returns: 
  119.         ;     OSErr             <= D0
  120.         _VInstall:    OPWORD    $A033
  121.     ELSE
  122.         IMPORT_CFM_FUNCTION    VInstall
  123.     ENDIF
  124.  
  125. ;
  126. ; pascal OSErr VRemove(QElemPtr vblTaskPtr)
  127. ;
  128.     IF ¬ GENERATINGCFM THEN
  129.         ; parameters: 
  130.         ;     vblTaskPtr        => A0
  131.         ; returns: 
  132.         ;     OSErr             <= D0
  133.         _VRemove:    OPWORD    $A034
  134.     ELSE
  135.         IMPORT_CFM_FUNCTION    VRemove
  136.     ENDIF
  137.  
  138. ;
  139. ; Custom Glue for 68k.
  140. ;
  141.     ENDIF ; __RETRACE__
  142.